Year 38 - Seek and Destroy 3

-- 7 Billion Humans (2235) --
-- 38: Seek and Destroy 3 by @abfipes12 --
-- and dmr [https://steamcommunity.com/profiles/76561197960413748] --

mem4 = set s
step n
a:
mem1 = nearest datacube
step n
if mem2 < mem3 or
 mem3 != datacube and
 mem4 != shredder and
 mem2 == datacube:
	mem3 = set mem2
endif
mem2 = nearest datacube
if mem1 == mem2 and
 mem3 == datacube or
 mem4 == shredder and
 mem1 == mem2:
	if n == wall:
		jump b
	endif
endif
jump a
b:
pickup mem3
step mem4
if mem4 == shredder:
	c:
	mem2 = set se
	if mem2 != hole:
		if mem2 < mem3 or
		 mem3 != worker:
			mem3 = set mem2
		endif
		step e
		jump c
	endif
	takefrom mem3
	giveto mem4
endif